sHelp
                                     PHA.ALLERGY
     i   2
 main
   mdx.screening.items

 Ì   €   i   2
main
[mnemonic]
&(T)TTA[tta]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mnemonic                    10 FREE     L                 tta                                                         
 active                       1 YN       L                 &(T)TTA[tta]|0                                              
 desc                        45 FREE     L                 &(T)TTA[tta]|1                                              
 last.update                 50 FREE     L                 &(T)TTA[tta]UPD                                             
 mis.allergy                 15 FREE     L  MIS.ALLERGY    &(T)TTA[tta]|4                                          
 Ì   €   i   2
mdx.screening.items
[mnemonic,  mdx.screening.item]
&(T)TTA[tta]MSI[ttaMS]

 Field Name                 Len Dat Typ  J  DPM            Offset/Local/VAL
 mdx.screening.item           8 INT      R                 ttaMS                                                       

 Index Files                        Subscripts/Physical Base

 fdb.code.x                         [fdb.code] = mnemonic
                                      &(T)TTAF[ttaFD]

 mdx.scrn.item.x                    [mdx.screening.item,mnemonic]
                                      &(T)TTASI[ttaMS,tta]

 ms.code.x                          [ms.code] = mnemonic
                                      &(T)TTAM[ttaMS]